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S ' 

Abstract. Inspired by the classical theory of modules over a monoid, we give a first account 
of the natural notion of module over a monad. The associated notion of morphism of left 
modules ("linear" natural transformations) captures an important property of compatibility 
with substitution, in the heterogeneous case where "terms" and variables therein could be 
of different types as well as in the homogeneous case. In this paper, we present basic con- 
structions of modules and we show examples concerning in particular abstract syntax and 
lamb da- calculus . 



o 



1 Introduction 



o. 

■ Substitution is a major operation. Its relevance to computer sciences has been stressed constantly 

02 | (see e.g. [7]). Mathematicians of the last century have coined two strongly related notions which 

O ■ capture the formal properties of this operation. The first one is the notion of monad, while the 

second one is the notion of operad. We focus on the notion of monad. A monad in the category C is 
£NJ ■ a monoid in the category of endofunctors of C (see 2 below) and as such, has right and left modules. 

Apriori these are endofunctors (in the same category) equipped with an action of the monad. In 
fact, we introduce a slightly more general notion of modules over a monad, based on the elementary 
observation that we can readily extend the notion of a right action of a monad in C to the case of 
00 ■ a functor from any category B to C, and symmetrically the notion of a left action of a monad in 

C to the case of a functor from C to any category D. We are mostly interested in left modules. As 
usual, the interest of the notion of left module is that it generates a companion notion of morphism. 
We call morphisms those natural transformations among (left) modules which are compatible with 
the structure, namely which commute to substitution (we also call these morphisms linear natural 
transformations) . 

Despite the natural ideas involved, the only mention of modules over monads we have been 
able to find is on a blog by Urs Schreiber. 3 On the other hand, modules over operads have been 
introduced by M. Markl ([16,17]) and are commonly used by topologists (see e.g. [9,14,4]). In 
[8], such modules over operads have been considered, under the name of actions, in the context of 
semantics. 

We think that the notions of module over a monad and linear transformations deserve more 
attention and propose here a first reference for basic properties of categories of left modules, 
together with basic examples of morphisms of left modules, hopefully showing the adequacy of the 
language of left modules for questions concerning in particular (possibly higher-order) syntax and 
lambda-calculus. 

In section 2, we briefly review the theory of monads and their algebras. In section 3, we develop 
the basic theory of modules. In section 4, we sketch a treatment of syntax (with variable-binding) 
based on modules. In the remaining sections, we show various linear transformations concerning 
lists and the lambda-calculus (typed or untyped). The appendix discusses the formal proof in the 
Coq proof assistant of one of our examples. 



2 Monads and Algebras 

We briefly recall some standard material about monads and algebras. Experienced readers may 
want to skip this section or just use it as reference for our notations. Mac Lane's book [15] can be 
used as reference on this material. 

3 http://golem.ph.utexas.edu/string/archives/000715.html 



Let C be a category. A monad over C is a monoid in the category C — > C of endofunctors of C. 
In more concrete terms: 

Definition 1 (Monad). A monad R = (R,ii,rf) is given by a functor R: C — > C, and two natural 
transformations fi: R 2 — > R such that the following diagrams commute: 





The fx and n natural transformations are often referred as product ( or composition ) and unit of 
the monad M . In the programming language Haskell, they are noted join and return respectively. 

Given a monad R and an arrow / : X — > RY, wc define the function bind / : RX — > RY given by 
bind f := fj, ■ Rf. The functoriality and the composition of the monad can be defined alternatively 
in terms of the unit and the bind operator. More precisely we have the equations 

^ix = bindl x , Rf = bind(?7 • /). 

Moreover, we have the following associativity and unity equations for bind 

bind g- bind/ = bind(bind#- /), bind 77^ = lj?^, bind/ ■ n = f (1) 

for any pair of arrows / : X — ► RY and g : Y — > RZ. 

In fact, to give a monad is equivalent to give two operators unit and bind as above which satisfy 
equations 1. 

Example 1 (Lists). To construct the monad of lists L (over Set), first take the functor L : Set — > Set 

L:1h E neN X n = * + X + XxX + XxXxX + ... 

So L(X) is the set of all finite lists with elements in X. Then consider as composition the natural 
transformation fi: L ■ L — > L given by the join (or flattening) of lists of lists: 

/j,[[ai, ...}, [61, ...],..., [zi, •••]] = [01, ... ,h, ....... ,zu .. .}. 

The unit n: I — > L is constituted by the singleton map rjx x € X t-^ [x] 6 L(X). 

Example 2 (Lambda Calculus). This example will be worked out with the necessary details in 
section 5.1, but let us give early some basic ideas (see also [1]). We denote by FV(M) the set 
of free variables of a A-term M. For a fixed set X, consider the collection of A-terms (modulo 
a-conversion) with free variables in X: 

IC{X) := {M\ FV{M) C X}. 

Given a set X we take as unit morphism rjx ■ X — > LC(X) the application assigning to an ele- 
ment x € X the corresponding variable in LCpf). Every map /: X — > Y induces a morphism 
LC(/): LC(X) — > LC(y) ("renaming") which makes LC a functor. The instantiation (or substitu- 
tion) of free variables gives us a natural transformation 

fix: LC(LCpO) -> LC(X). 

With this structure LC is a monad. 

Moreover, by taking the quotient ^l(-X') of LC(X) modulo /3r;-conversion we still obtain a monad 
(i.e., the composition and the unit of the monad are compatible with /377-conversions) . 

Definition 2 (Maybe monad). In a category C with finite sums and a final object (like Set), the 
functor IhI I* which takes an object and "adds one point" has a natural structure of monad 
on C. Borrowing from the terminology of the library of the programming language Haskell, we call 
it the Maybe monad. 



Definition 3 (Derivative). We define the derivative F 1 of a functor F : C — > C to be the functor 
F' = F ■ Maybe. We can iterate the construction and denote by F^ the n-th derivative. 4 

Definition 4 (Morphisms of monads). A morphism of monads is a natural transformation 
between two monads <f>: P — > R which respects composition and unit, i.e., such that the following 
diagrams commute: 



R 2 



P 





-+R 



It can be easily seen that morphisms of monads form a category. 

For our purpose it is relevant to observe that there are a number of natural transformations 
which arise in the above examples which fail to be morphisms of monads. We take the following 
as paradigmatic example. 

Example 3 (Abstraction is not a morphism of monads). Abstraction on A-terms gives a natural 
transformation abs: LC' — > LC which takes a A-term M € LC(X + *) and binds the "variable" *. 
This fails to be a morphism of monads because it does not respect substitution in the sense of 
monads: a careful inspection reveals that the transformation 

LC(LC(A + *) + *) LC(X + *) ^ LC(X) 
binds all stars under a single abstraction while 

LC(LC(A + *) + *) ab ^ 5 LC(LC(X)) LC(X) 

not. In fact, we will see later that LC' is a left module over LC and abs is a LC-linear morphism. 
Now let R be a monad over C. 

Definition 5 (Algebra). An algebra over R is given by an object A and a morphism p: R(A) — > 
A in C such that the following diagrams commute: 



R 2 (A)^+R(A) 



R(A) 



->■ A 




R(A)- 

Definition 6. Let A, B be two algebras over a monad R. An arrow f : A — > B in C is said to be a 
morphism of algebras if it is compatible with the associated actions, i.e., the two induced morphisms 
from R{A) to B are equal: 

Pb ■ R(.f) = f ■ PA 

As we will see later, algebras can be regarded as special kind of right modules. 

Example 4 (Monoids). In the category of sets, algebras over the monad L of lists are sets equipped 
with a structure of monoid; given a monoid A, the corresponding action L{A) — > A is the product 
(sending a list to the corresponding product). 



3 Modules over monads 

Being a monoid in a suitable monoidal category, a monad has associated left and right modules 
which, a-priori, are objects in the same category, acted upon by the monoid. 

Although we are mostly interested in left modules, let us remark that from this classical point 
of view, algebras over a monad are not (right-)modules. We give a slightly more general definition 
of modules which is still completely natural. According to this extended definition, algebras turn 
out to be right-modules. 

4 This corresponds to the MaybeT monad transformer in Haskell. 



3.1 Left modules 



We start first by concentrating ourselves on left modules over a given monad R over a category C. 

Definition 7 (Left modules). A left R-module in D is given by a functor M: C — > D equipped 
with a natural transformation p: M ■ R —> M , called action, which is compatible with the monad 
composition, more precisely, we require that the following diagrams commute 



Mu 

M ■ R 2 *- M ■ R 



Mr) 

M -R-< M-I 



pR 

M-R- 




We will refer to the category D as the range of M. 

Remark 1. The companion definition of modules over an operad (c.f. e.g. [17,9]) follows easily 
from the observation [19] that operads are monoids in a suitable monoidal category. This monoidal 
structure is central in [6]. 

Given a left i?-module M, we can introduce the mbind operator which, to each arrow /: X — > 
RY, associates an arrow mbind / := MX — > MY defined by mbind f := p- Mf. The axioms of left 
module are equivalent to the following equations over mbind: 

mbind g ■ mbind / = mbind(bind g ■ /), mbind r\x = lx 

Example 5. We can see our monad R as a left module over itself (with range C), which we call the 
tautological module. 

Example 6. Any constant functor W_: C ^ D, 6 D is a trivial left i?-module. 

Example 7. For any functor F: D — > E and any left i?-module M : C — > D, the composition F ■ M 
is a left i?-module (in the evident way). 

Definition 8 (Derived module). As for functors and monads, derivation is well-behaved also 
on left modules: for any left R-module M , the derivative M' = M ■ Maybe has a natural structure 
of left R-module where the action M' ■ P — ► M 1 is the composition 

M ■ Maybe • R ^ M ■ R ■ Maybe pMa ^ e M ■ Maybe 
and 7 is the natural arrow Maybe ■ R — * R ■ Maybe. 

Definition 9 (Morphisms of left modules). We say that a natural transformation of left R- 
modules t : M — > N is linear if it is compatible with substitution: 



M-R- 

PM 

M ■ 



N ■ R 

Pn 

■>■ N 



We take linear natural transformations as left module morphisms. 

Remark 2. Here the term linear refers to linear algebra: linear applications between modules over 
a ring are group morphisms compatible with the action of the ring. It is compatible with the usual 
flavor of the word linear (no duplication, no junk) as the following example shows. 

Example 8. We consider the monad M on Set generated by two binary constructions + and * and 
we build (by recursion) a natural transformation n: M — > M as follows: for a variable x, n(x) is 
x+x, while for the other two cases we have n(a+b) = n{a)*n{b) and n{a*b) = n(a)+n{b). It is easily 
verified that n is a non-linear natural transformation (check the diagram against n(var(x * x))). 



Example 9. We easily check that the natural transformation of a left module into its derivative is 
linear. Note that there are two natural inclusions of the derivative M' into the second derivative 
M". Both are linear. 

Example 10. Consider again the monad of lists L. The concatenation of two lists is a L-linear 
morphism L x L — > L. 

Definition 10 (Category of left modules). We check easily that linear morphisms between left 
R-modules with the same range yield a subcategory of the functor category. We denote by Mod D (i?) 
the category of left R-modules with range D. 

Definition 11 (Product of left modules). We check easily that the cartesian product of two 
left R-modules as functors (having as range a cartesian category D) is naturally a left R-module 
again and is the cartesian product also in the category Mod (R) . We also have finite products as 
usual. The final left module * is the product of the empty family. 

Example 11. Given a monad R on Set and a left R- module M with range in a fixed cartesian 
category D, we have a natural "evaluation" morphism eval: M' x R — > M, where M' is the 
derivative of M. 

Proposition 1. Derivaton yields a cartesian endofunctor on the category of left R-modules with 
range in a fixed cartesian category D 

3.2 Right modules 

Let R be a monad over a category C. The definition of right module is similar to that of left module. 

Definition 12 (Right modules). A right R-module (from D) is given by a functor M: D — > 
C equipped with a natural transformation p: R ■ M — > M which makes the following diagrams 
commutative 

llM r)M 

R 2 ■ M *- R-M I -M R ■ M 




Rp 

R-M— >■ M 

As for left modules, we will call corange of M the category D. 

We remark that for any right i?-module M and any object X G D the image M(X) is an 
i?-algebra. Then a right i?-module is simply a functor from the corange category D to the category 
of i?-algebras. 

Example 12. Our monad R is a right module over itself. 

Example 13. If A is an i?-algebra, then for any category D the constant functor A: X ^> A 
has a natural structure of right i?-module. In particular, we can identify our algebra with the 
corresponding functor A: * — > C, where * is the category with one object and one arrow. 

Example 14- Let <f>: R — > P be a morphism of monads. Then P is a right and left i?-module with 
actions given respectively by P ■ R — ► R ■ R R and R ■ P — ► R ■ R R. 

Definition 13 (Morphisms of right modules). A morphism of right R-modules is a natural 
transformation r: M — > N which is compatible with substitution, i.e., such that the following 
diagram commutes: 

R- M R- N 

Pm 

M : 



Definition 14 (Category of right R- modules). We check easily that module morphisms among 
right R-modules with the same corange yield a subcategory of the functor category. 



3.3 Limits and colimits of left modules 



Limits and colimits in the category of left modules can be constructed pointwise. For instance: 

Lemma 1 (Limits and colimits of left modules). If D is complete (resp. cocomplete) , then 
Mod (i?) is complete (resp. cocomplete). 

Proof. Suppose first that D be a complete category and G: I — > Mod D (i?) be a diagram of left 
modules over the index category I. For any object leCwe have a diagram G(X) : I — > D and for 
any arrow /: X — ► Y in C we have a morphism of diagrams G(X) — ► G(Y). So define 

U(X) := limG(X) 

Next, given an arrow f:X—* R(Y), we have an induced morphism of diagrams G(X) — > G(Y) by 
the module structure on each object of the diagram. This induces a morphism mbind/: U(X) — > 
f/(Y). It is not hard to prove that mbind satisfies the module axioms and that U is the limit of G. 
The colimit construction is carried analogously. 



3.4 Base change 

Definition 15 (Base change). Given a morphism /: A — > B of monads and a left B-module 
M, we have an A-action on M given by 

M-A^M-B^M. 
We denote by f*M the resulting A-module and we refer to f* as the base change operator. 
Lemma 2. The base change of a left module is a left module. 
Proof. Our thesis is the commutativity of the diagram 

Mi A Mn 

M ■ B ■ A^-— M ■ A- A—+ M ■ A 



Mff 



Mf 



pA 



M ■ A- 



Mu 

M-B-B—^M-B 



Mf 



pB 

■ M ■ B 



M 



which follows from the commutativity of the three pieces: M is a left B-module, the map from 
M(B(S)) — > M(_) is functorial, and / is a morphism. 

Definition 16 (Base change (functoriality)). We upgrade the base change operator into a 
functor f* : Mod D (B) -> Mod (A) by checking that ifg:M^N is a morphism of left B -modules, 
then so is the natural transformation f*g: f*M — * f*N. 

Proposition 2. The base change functor commutes with products and with derivation. 

Proposition 3. Any morphism of monads f : A — > B yields a morphism of left A-modules, still 
denoted f, from A to f*B. 



4 Initial Algebra Semantics 



To ease the reading of the forthcoming sections, we collect in this section some classical ideas about 
Initial Algebra Semantics. 



Given a category C and an endofunctor T: C — > C, a T-algcbra 5 is given by an object A E C 
and an arrow 

a A : TA -> A. 

A morphism of T-algebras is an arrow / : A — > B which commutes with the structural morphism 
a 

Tf 

TA — ->■ TB 



A ■ 



f 



B 



This defines the category of T-algebras. Notice that, for any T-algebra A, there is an induced 
T-algebra structure on TA given by Tg a ■ T(TA) — ► TA, turning a a into a morphism of algebras. 
An initial T-algebra is called a (least) fix-point of T. Given one such fixpoint U and any other 
T-algebra A we denote by fold^ : U —> A the induced initial morphism. We observe that ajj is an 
isomorphism whose inverse is fold™ since ajj ■ fold^c/ = It/ by the universal property of U and 
from the naturality of fold follows that the diagram 



Tfold T 




fold^t/ 



is commutative. 

Let us show how this general framework can work in the case of (polymorphic) lists. 

Example 15. Take C = Set — ► Set the category of endofunctors of Set and consider the functor 
T: (Set -> Set) -> (Set Set) defined by 

T(F) :=X^* + X x FX. 

The least fix point of T is (the underlying functor of) the monad of lists L introduced in section 
2. The T-algebra structure * + X x LX = TL ~ L gives the constructors (nil, cons) and the 
corresponding destructors. We would like to recognise this structural isomorphism as an T-lincar 
morphism. Unfortunately, we do not have on TL a structure of left T-module corresponding to our 
expectation (notice that the identity functor is not an L-module in a natural way). We will explain 
in section 6 how this phenomenon can be considered a consequence of the lack of typing. 

5 Monads over sets 

In this section we consider more examples of linear morphisms over monads on the category of 
sets. 

5.1 Untyped Syntactic Lambda Calculus 

Consider the functor T := (Set — > Set) — > (Set — ► Set) given by 

TF : IhI| FX x FX + F'X 

where F' denotes the derived functor X i-> F(X + *). It can be shown that T possesses a least 
fixpoint that we denote by LC (LC standing for A-calculus, cfr. the example in section 2). We 
consider LC(X) as the set of A-terms with free variables taken from X (see also [3]). In fact, 



5 There is a lexical conflict here with algebra of monads introduced in section 2, which is deeply rooted 
in the literature anyway. We hope that this will not lead to any confusion. 



the structural morphism TLC — ► LC gives the familiar constructors for A-calculus in the locally 
nameless encoding, namely, the natural transformations 

var: I — > LC, app: LC x LC — > LC, abs: LC' — > LC. 

As already observed, the substitution (instantiation) of free variables gives a monad structure on 
LC where var is the unit. 

We would like to express that these constructors are well behaved with respect to substitution. 
Again, as in the case of lists, TLC has no natural structure of left LC-module. However, we can 
consider the functor T as built of two parts TF = I + T F where T F := F x F + F' (in other 
words we are tackling apart var, the unit of the monad, from the other two constructors app and 
abs). Now T LC is a left LC-module and we can observe that the algorithm of substitution is carried 
precisely in such a way that the induced morphism 

app, abs: ToLC — ► LC 

is LC-linear or, equivalently, the natural transformations app : LC x LC — > LC and abs : LC' — > LC are 
LC-linear. To make the idea clearer, we reproduce a short piece of code in the Haskell programming 
language which implements the algorithm of substitution. 

module LC where 
import Monad (liftM) 

data LC a = Var a I App (LC a) (LC a) I Abs (LC (Maybe a)) 

instance Monad LC where 
return = Var 

Var x »= f = f x 

App x y »= f = App (x »= f) (y »= f) 

Abs x »= f = Abs (x 'mbind' f) 

mbind : : LC (Maybe a) -> (a -> LC b) -> LC (Maybe b) 
mbind x f = x >>= maybe (Var Nothing) (liftM Just . f) 

In the above code, mbind constitutes the left LC-module structure on LC'. It is now evident that 
the recursive calls in the definition of (»=) are exactly those given by the linearity of app and 
abs. 

We can go further and try to make the linearity more explicit in the syntactic definition of 
A-calculus. This can be done as follows. 

Theorem 1. Consider the category Mon T ° where objects are monads R over sets endowed with a 
R-linear morphism T R — > R while arrows are given by commutative diagrams 

T R — f*T a P 
f 

where all morphisms are R-linear (we are using implicitly the fact that the base change functor 
commutes with derivation and products). The monad LC is initial in Mon T ° . 

In fact, the previous theorem can be generalized as follows (interested readers may also want 
to look at other works on higher order abstract syntax, e.g., [6, 13, 10] see also our [12]). Let R be 
a monad over Set. We define an arity to be a list of nonnegative integers. We denote by N* the set 
of arities. For each arity (ai, . . . , a r ), and for any i?-module M, we define the i?-module T a M by 

T a M = M {ai) x ••• xM (0r) , 

where denotes the n-th derivative of M, and we say that a linear morphism T a R — > R is a 

R- representation of a (or a representation of a in R). For instance, the app and abs constructors 
are LC-representations of the arities (0, 0) and (1) respectively. 



Next, we consider signatures which are family of arities. For each signature E: I — > N*, and 
for any i?-module M, we define the i?-module T E M by 

iei 

and we say that a linear morphism T s R — > R is a R-representation of 17 (or a representation of 
Z 1 in i?). Altogether app and abs give a LC-representation of the signature ((0, 0), (1)). 

As in the special case of the A-calculus, representations of a given signature E form a category. 

Theorem 2. For any signature E, the category of E -representations has an initial object. 



5.2 Untyped Semantic Lambda Calculus 

For any set X, consider the equivalence relation =j3n on LC(AT) given by the reflexive symmetric 
transitive closure of /? and r\ conversions and define A(X) := LC(X)/ =^^. It can be shown that 
=p v is compatible with the structure of LC so A has a structure of monad, the projection LC — > A 
is a morphism of monads, and we have an induced morphism T A — > yl which is /1-linear. 

Now the key fact is that the abstraction abs: A' — > A is a linear isomorphism! In fact, it is easy 
to construct its inverse app x : A — > A': 

appj x = app(f , *) 
where x i— > x denotes the natural inclusion A ^> A'. The equation 

abs • app x = l/i 
clearly corresponds to the ry-rule while the other equation 

app x • abs = 

can be considered the ultimate formulation of the /3-rule. In fact, there is a more classical formu- 
lation of the /3-rule which can be stated as the commutativity of the diagram 

absxA 

A' x A >- Ax A 




Again, we can present this situation from a more syntactical point of view. For this, consider 
the category of exponential monads: an exponential monad is a monad R endowed with a R- linear 
isomorphism with its derivative exp^j : R' — > R. An arrow is a monad morphism / such that 



R' 



exp R 



R- 



f 



f*P' 

exp^ 

f*P 



is a commutative diagram of i?-modules (we are implicitly using the commutativity of base change 
with derivation). 

Theorem 3. The monad A is initial in the category of exponential monads. 

We have developed a formal proof of the above theorem in the Coq proof assistant [5] which is 
discussed in the appendix. 



6 Monads over types 



So far we mostly considered examples of monads and modules on the category C = Set of small 
sets. Other interesting phenomena can be captured by taking into account monads and modules 
on other categories. In this section we consider the case C = Set T the category of sets fibered 
over a fixed set r. This is the category given by maps (f>x ■ X — > r, called r-sets, where arrows 
(X, /fix) — * (Y, 4>y) are given by maps /: X — > Y which commute with the structural morphisms, 
i.e., (j)Y • f = 4>x- For each (£t and each r-set X, we denote by X T := (^^(t) the preimage of t 
in t. We regard r as a "set of types" and the fibers X t as a set of "terms of type i" . 

6.1 Typed lists 

Here we show how, in the context of typed lists, the constructors nil and cons may appear as linear. 
To this effect, we introduce a distinction between the base type *, the type of lists list*, the type 
of lists of lists, etc. Thus we take r = N the inductive set of types generated by the grammar 
t = * | listr, and consider the category Set T . 

For each t G r we define £ t : Set r — » Set by setting £*(A) to be the set of terms of type t 
built out from (typed) variables in X by adding, as usual, terms obtained through the nil and cons 
constructions. By glueing these £< together, we obtain an endofunctor £ in Set T . It is easily seen 
to be a monad (the present structure of monad has nothing to do with flattening). 

For each t G r, £ t is a left £-module (by Example 7). The nil and cons constructors constitute 
a family of natural transformations parametrized by t G r 

nil t : * — > £|i 5t i, cons t : £ t x £|i stt — ► L\- lstt . 

Hence we have here examples of heterogeneous modules since *, £ t and £|i st t are £-modules in 
Set. And n\\ t and const are easily seen to be morphisms among these modules. 

We may also want to glue for instance these cons* into a single cons. For this, we need shifts. 
Given X G Set T we have the associated shifts X [n] which are obtained by adding n to the structural 
map X — > N. The shift (-)[n] : X i— > X[n] gives an endofunctor over Set T . Given a functor F from 
any category to the category Set T , we consider the shifted functors F[n] obtained as composition 
of F followed by (-)N- From the remarks of section 3, it follows at once that if F is an iL-module, 
then so is F[n). With these notations, glueing yields 

nil : * [1] — > £, cons: £[1] x £ — > £ 

where * denotes the final functor in the category of endofunctors of Set T . Again nil and cons are 
easily checked to be £-linear. 

6.2 Simply Typed Lambda Calculus 

Our second example of typed monad is the simply-typed A-calculus. We denote by r the set of 
simple types r := * | r — > r. Following [22], we consider the syntactic typed A-calculus as an 
assignment V LC t (V), where V = J2 teT (Vt) is a (variable) set (of typed variables) while 

LC T (F) = 5>C T 00) t 
ter 

is the set of typed A-terms (modulo a-conversion) built on free variables taken in V. 

Given a type t we set LCt(X) := (LC T (X))t which gives a functor over r-sets, which is equipped 
with substitution, turning it into a (heterogeneous) left module over LC r . And given two types s, t, 
we have 

app s t : LC S ^ 4 x LC S — ► LQ 

which is linear. 

For the abs construction, we need a notion of partial derivative for a module. For a left module 
M over r-sets, and a type t G r, we set 



5 t M(V) :=M(V + * t ) 



where V + *t is obtained from V by adding one element with type t. It is easily checked how StM 
is again a left module. Now, given two types s and t, it turns out that 

abs M : S s LC t — ► LC s ^ t 

is linear. 

As in the untyped case, we can consider the functor A T obtained by quotienting modulo f3rj con- 
version. This is again a monad over the category of r-sets and the natural quotient transformation 
LC T — > A T is a morphism of monads. For this semantic monad, the above left module morphisms 
induce semantic counterparts: app s t : A s ^ t x A s — ► A t and abs s ,t : 5 s A t — ► A 8 ->f 

Here we need a new notion of arity and signature, which we will introduce in some future work, 
in order to state and prove a typed counterpart of our theorem 2. For a typed counterpart of our 
theorem 3, see [22]. 

6.3 Typed Lambda Calculus 

Our final example of typed monad is just a glance to more general typed A-calculi. The point 
here is that the set of types is no more fixed. Thus our monads take place in the category Fam 
of set families: an object in Fam is an application p: I — ► Set while a morphism m: p — > p' is 
a pair (mo, mi) with ttiq: I — ► /', and mi: (i : I)p(i) — > p'(mo(i))- We say that I is the set 
of types of p: I — > Set. From Fam there are two forgetful functors T,Tot: Fam — ► Set where 
T(p: I — > Set) := / and Tot(p) := U ieT r p \p(i), and a natural transformation proj : Tot — > T, 
defined by proj(p) = p in the obvious sense. Given a monad R on Fam, we thus have a morphism 
of i?-modules proj R : TotoR — > T o i?. 

We need also two may-be monads on Fam: the first one F i— ► F* adds one (empty) type (tnew) to 
F, while the second one, F i— ► i? 1 */* adds one type (tnew) with one element (new). Given a monad 
R on Fam, we thus have two "derived" i?-modules: R* := F ^ R(F*) and i?*/* := F ^ R(F*/*) 

Now when should we say that R is a lambda-calculus in this context? At least we should 
have a module morphism arrow : (T o R) 2 — > T o _R. and a module morphism for abstraction, 
abs : R*/* — > i?* (the "arity" for application is not so simple). We hope this example shows the 
need for new notions of arity and signature, as well as the new room opened by modules for such 
concepts. 

7 Monads over preordered sets 

Our last example is about monads and modules over the category of preordered sets (sets with 

a reflexive and transitive binary relation). Preordering is used here to model the relation — 
generated by the reflexive and transitive closure of the (3 and r\ conversions. In fact, the construction 
given in this section can be considered a refinement of those of section 5.1 where we used the 
reflexive, symmetric and transitive closure =pri- 

Let us consider again the monad LC of A-tcrms. Given a preordered set X, we consider the 
preordering on LC(X) given by the rules 

varx < vary, 
app(S,T) <app(5',T'), 
abs(T) < abs(T'), 
T < T'. 

It is not hard to verify that with this new structure LC is now a monad over preordered sets. It 
turns out that the app and abs constructions are still LC-linear with respect to this richer structure. 

8 Conclusions and related works 

We have introduced the notion of module over a monad, and more importantly the notion of 
linearity for transformations among such modules and we have tried to show that this notion is 



x < y 
S < S' A T < T' 
T <T' 
T -^ 0V T> => 



ubiquitous as soon as syntax and semantics are concerned. Our thesis is that the point of view of 
modules opens some new room for initial algebra semantics, as we sketched for typed A-calculus 
(see also [12]). 

The idea that the notion of monad is suited for modelling substitution concerning syntax (and 
semantics) has been retained by many recent contributions concerned with syntax (see e.g. [2, 11, 
18]) although some other settings have been considered. Notably in [6] the authors work within 
a setting roughly based on operads (although they do not write this word down; the definition of 
operad is on Wikipedia; operads and monads are not too far from each other). As they mention, 
their approach is, to some extent, equivalent to an approach through monads. It has been both 
applied e.g. in [21] and generalized e.g. in [20]. Another approach to syntax with bindings, initiated 
by Gabbay and Pitts [10], relies on a systematic consideration of freshness, an issue which is 
definitely ignored in the monadic or operadic approach. 

While the notion of module over a monad has been essentially ignored till now, the notion of 
module over an operad has been introduced more than ten years ago, and has been incidentally 
considered in the context of semantics, as we already mentioned in our introduction. 

9 Appendix: Formal proof of theorem 3 

In this section we present our formal proof of theorem 3 in the Coq proof assistant [5] . We recall 
the statement of the theorem 

The monad A of semantic untyped A-calculus is an initial object in the category of expo- 
nential monads. 

We include here only a small fraction of the code without proofs. The full sources can be found at 
http: //www. math. unif i . it/~maggesi. 

9.1 Structure of the formalisation 

The structure of our proof can be outlined in the following four major parts: (1) axioms and 
support library; (2) formalisation of monads, modules and exponential monads; (3) formalisation 
of syntactic and semantic A-calculus; (4) the main theorem. 

The second and third part are independent of each other. As for what this paper is concerned, 
the first part (files Misc.v, Congr.v) can be considered as an extension of the Coq system for 
practical purposes. This part contains some meta- logical material (tactics and notations) and 
declares the following axioms: functional choice, proof irrelevance, dependent extensionality. We 
include here their declarations: 

Axiom f unctional_choice : f orall (A B : Type) (R : A -> B -> Prop) , 

(forall x : A, exists y : B, R x y) -> exists f : A -> B, (forall x : A, R x (f x) ) . 

Axiom proof .irrelevance : forall (A : Prop) (HI H2 : A), HI = H2. 

Axiom extens_dep : forall (X : Type) (T : X -> Type) (f g : forall x : X, T x) , 
(forall x : X, fx=gx) ->f=g. 

Moreover, we use an axiomatic definition of quotient types (file Quot.v) to construct semantic 
A-calculus as quotient of syntactic A-calculus. 

9.2 Formalisation of monads and modules 

After the preliminary material, our formalisation opens the theory of monads and (left) modules 
(files Monad. v, Mod.v, DerivedJVfod.v). This is constructed starting from a rather straightforward 
translation of the Haskell monad library. As an example, we report here our definitions of monads 
and modules in the Coq syntax. 

Record Monad : Type := { 

monad_carrier :> Set -> Set; 

bind : forall X Y : Set, (X -> monad_carrier Y) -> monad_carrier X -> monad_carrier Y; 
unit : forall X : Set, X -> monad_carrier X; 

bind_bind : forall (X Y Z : Set) (f : X -> monad_carrier Y) (g : Y -> monad_carrier Z) 



(x : monad_carrier X) , 

bind Y Z g (bind X Y f x) = bind X Z (fun u => bind Y Z g (f u) ) x; 
bind_unit : f orall (X Y : Set) (f : X -> monad_carrier Y) (x : X) , 

bind X Y f (unit X x) = f x; 
unit_bind : f orall (X : Set) (x : monad_ carrier X) , bind X X (unit X) x = x 

}. 

Notation "x »= f" := (@bind fx). 



Record Mod (U : Monad) : Type := 
mod_carrier :> Set -> Set; 
mbind : f orall (X Y: Set) (f 
mbind_mbind : forall (X Y Z : 
mbind Y Z g (mbind X Y f x) 
unit_mbind : forall (X : Set) 

}. 

Notation "x »>= f" := (@mbind 



X -> U Y) (x : mod_carrier X) , mod_carrier Y; 
Set) (f : X -> U Y) (g : Y -> U Z) (x : mod_carrier X) , 
= mbind X Z (fun u => f u >>= g) x; 
(x : mod_carrier X) , mbind X X (Ounit U X) x = x 

fx). 



The library also includes the definition of morphism of monads and modules and other related 
categorical material. Other definitions which are specific to our objective are those of derived 
module and exponential monad. The latter reads as follows: 

Record ExpMonad : Type := { 
exp_monad :> Monad; 

exp_abs : Mod_Hom (Derived_Mod exp_monad) exp_monad; 

exp_app : Mod_Hom exp_monad (Derived_Mod exp_monad) ; 

exp_eta : forall X (x : exp_monad X), exp_abs _ (exp_app x) = x; 

exp_beta : forall X (x : Derived_Mod exp_monad X) , exp_app _ (exp_abs x) = x 

}. 



and comes with its associated notion of morphism: 

Record ExpMonad_Hom (M N : ExpMonad) : Type := { 
expmonad_hom :> Monad_Hom M N; 
expmonad_hom_app : forall X (x : M X) , 

expmonad_hom _ (exp_app M _ x) = exp_app N _ (expmonad_hom _ x) ; 

expmonad_hom_abs : forall X (x : Derived_Mod M X) , 

expmonad_hom _ (exp_abs M _ x) = exp_abs N _ (expmonad_hom _ x) 



9.3 Formalisation of the A-calculus 

This part contains the definition of syntactic and semantic A-calculus (files Slc.v and Lev respec- 
tively). We use nested datatypes to encode A-terms in the Calculus of (Co)Inductive Constructions 
as already shown in the Haskell fragment of section 5.1 for which we report below the equivalent 
Coq code. Notice that this encoding can be considered a typeful variant of the well-known de 
Bruijn encoding [3]. As the de Bruijn encoding, it represents A-terms modulo a-conversion. 

Inductive term (X : Set) : Set := var : X -> term X 

I app : term X -> term X -> term X 
I abs : term (option X) -> term X. 



Fixpoint fct (X Y : Set) (f : X -> Y) (x : term X) { struct x } : term Y := 
match x with var a => var (f a) 

I app x y => app (x //- f) (y //- f) 

I abs x => abs (x //- (optmap f)) end 
where "x //- f" := (Ofct f x) . 



Definition shift X (x : term X) : term (option X) := x //- @Some X. 



Definition comm (X Y : Set) (f : X -> term Y) (x : option X) : term (option Y) := 
match x with Some a => shift (f a) I None => var None end. 



Fixpoint subst (X Y : Set) (f : X -> term Y) (x : term X) { struct x } : term Y := 
match x with var x => f x 

I app x y => app (x //= f) (y //= f) 

I abs x => abs (x //= comm f) end 
where "x //= f" := (<3subst _ _ f x) . 

Once the basic definitions are settled, we prove a series of basic lemmas which includes the asso- 
ciativity of substitution 

Lemma subst_subst : f orall (X Y Z : Set) (f : X -> term Y) (g : Y -> term Z) (x : term X) , 
x //= f //= g = x //= fun u => f u //= g. 

which is the most important ingredient to prove that the A-calculus is a monad. Finally, we intro- 
duce the beta-eta equivalence relation on lambda terms 

Inductive lcr (X : Set) : term X -> term X -> Prop := 
I lcr_var : f orall a : X, var a == var a 

I lcr_app : f orall xl x2 yl y2 : term X, xl == x2 -> yl == y2 -> app xl yl == app x2 y2 
I lcr_abs : f orall x y : term (option X) , x == y -> abs x == abs y 
I lcr_beta : f orall x y : term X, Beta x y -> x == y 
I lcr_eta : f orall x : term X, abs (appl x) == x 
I lcr_sym : f orall x y : term X, y == x -> x == y 
I lcr_trs : f orall x y z : term X, lcr x y -> lcr y z -> lcr x z 
where "x == y" := (Olcr x y) . 

and prove some compatibility lemmas for constructors and other operations. The compatibility of 
substitution is stated as follows: 

Lemma lcr_subst : forall (X Y : Set) (f g : X -> term Y) (x y : term X) , 
(forall u, f u == g u) -> x == y -> x //= f == y //= g. 

9.4 Proof of the main theorem 

The fourth and last part summarises the results proved in the other parts and proves the main 
theorem. It starts by glueing together the previous two sections by proving that our definitions of 
syntactic and semantic lambda calculus provides indeed two monads, denoted SLC and LC respec- 
tively, and by showing that the two morphisms abs and app x constitute morphisms of modules: 

Definition SLC : Monad := Build_Monad term subst var subst_subst subst_var var_subst. 

Definition LC : Monad := 

Build_Monad lc lc_subst lc_var lc_subst_assoc lc_subst_var lc_var_subst . 

Let abs_hom : Mod_Hom (Derived_Mod LC) LC := 

Build_Mod_Hom (Derived_Mod LC) LC lc_abs lc_abs_hom. 

Let appl_hom : Mod_Hom LC (Derived_Mod LC) := 

Build_Mod_Hom LC (Derived_Mod LC) lc_appl lc_appl_hom. 

One more glueing step is the proof that LC is an exponential monad, which is stated in Coq through 
the following definition: 

Definition ELC : ExpMonad := Build_ExpMonad abs_hom appl_hom lc_eta lc_beta. 

Next comes the construction of the initial morphism which is initially defined as a fixpoint on 
terms. 

Variable M : ExpMonad. 

Fixpoint iota_fix X (x : term X) { struct x } : MX := 
match x with var a => unit M a 

I app x y => exp_app M _ (iota_fix x) »= default (@unit M X) (iota_fix y) 
I abs x => exp_abs M _ (iota_fix x) end. 

Then we prove that iota_f ix is compatible with the (irj equivalence relation and thus it factors 
through the monad LC. 



Let iota X : lc X -> M X := lc_f actor (@iota_fix X) (@iota_f ix_wd X). 

The construction of the initial morphism ends with the verification that it is actually a morphism 
of exponential monads. 

Let iota_monad : Monad_Hom LC M := Build_Monad_Hom LC M iota iota_subst iota_var. 

Let exp_iota : ExpMonad_Hom ELC M : = 

Build_ExpMonad_Hom ELC M iota_monad iota_appl iota_abs . 

Finally, we prove that iota_monad is unique. 

Theorem iota_unique : forall j : ExpMonad_Hom ELC M, j = exp_iota. 

The Coq terms ELC, iotajnonad and iota.unique altogether form the formal proof of the initiality 
of the monad LC in the category of exponential monads. 
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